library(foreign)


Figure_4.txt <- read.table("Figure_4.txt", 
                        header=T, sep=",")


library(ggplot2)
library(extrafont)

Figure_4.txt$N <- as.factor(c(rep(1,3), rep(2, 3), rep(3,3)))

ggplot(data = Figure_4.txt, aes(x = N, y = Percent, fill = Category))  + 
  geom_bar(stat="identity", colour="white") +
  scale_fill_grey()+ theme_bw() + 
  scale_x_discrete(name="\nTreatment", breaks=c("1", "2", "3"), 
                   labels = c("Sex Industry","Exploitative Environment", "Menial Labor")) +
  theme(text=element_text(family="Garamond"))

ggsave(file="BonillaMo_Figure4.jpg",
        width = 200, height = 200, units = "mm", dpi=600)



